home *** CD-ROM | disk | FTP | other *** search
/ Dos/V Magazine 1995 October 15 / CD [VMAG951015].bin / _demo / nekodemo / rtrv / rtrv0900 / 00001_1FrameScore.ls next >
Encoding:
Text File  |  1995-05-31  |  2.5 KB  |  15 lines
  1. on exitFrame
  2.   global gtpoem, gppoem, gtbio, gpbio, gcurrentnumber, gbiophotonumber, greq, gblend.45, gblend.46, gblend.47, greturn
  3.   set gtpoem to [[["BUSON00O", EMPTY], ["BUSON00E", EMPTY], ["BUSON00J", EMPTY], ["BUSON00Z", 120], EMPTY], [["BUSON01O", EMPTY], ["BUSON01E", EMPTY], ["BUSON01J", EMPTY], ["BUSON01Z", 120], EMPTY], [["BUSON02O", EMPTY], ["BUSON02E", EMPTY], ["BUSON02J", EMPTY], ["BUSON02Z", 120], EMPTY], [["BUSON03O", EMPTY], ["BUSON03E", EMPTY], ["BUSON03J", EMPTY], ["BUSON03Z", 120], EMPTY], [["BUSON04O", EMPTY], ["BUSON04E", EMPTY], ["BUSON04J", EMPTY], ["BUSON04Z", 120], EMPTY], [["BUSON05O", EMPTY], ["BUSON05E", EMPTY], ["BUSON05J", EMPTY], ["BUSON05Z", 120], EMPTY], [["BUSON06O", EMPTY], ["BUSON06E", EMPTY], ["BUSON06J", EMPTY], ["BUSON06Z", 120], ["BUSON06Y", 260]], [["BUSON07O", EMPTY], ["BUSON07E", EMPTY], ["BUSON07J", EMPTY], ["BUSON07Z", 120], EMPTY], [["BUSON08O", EMPTY], ["BUSON08E", EMPTY], ["BUSON08J", EMPTY], ["BUSON08Z", 120], EMPTY], [["BUSON09O", EMPTY], ["BUSON09E", EMPTY], ["BUSON09J", EMPTY], ["BUSON09Z", 120], ["BUSON09Y", 260]], [["BUSON10O", EMPTY], ["BUSON10E", EMPTY], ["BUSON10J", EMPTY], ["BUSON10Z", 120], ["BUSON10Y", 260]]]
  4.   set gppoem to [EMPTY, [["14", "SHL", 460, 240, "14J", 460, 440, "14E", 460, 440]], EMPTY, EMPTY, EMPTY, EMPTY, [["22", "SHL", 460, 240, "22J", 460, 440, "22E", 460, 440]], EMPTY, EMPTY, EMPTY, EMPTY]
  5.   set gtbio to [[1, "BUSONNAM", "BUSONNAE", "BUSONBIJ", "BUSONBIE", "09"], [1, "BUSONNAM", "BUSONNAE", "BUSONBIJ", "BUSONBIE", "CUT18"], [1, "BUSONNAM", "BUSONNAE", "BUSONBIJ", "BUSONBIE", "CUT18"], [1, "BUSONNAM", "BUSONNAE", "BUSONBIJ", "BUSONBIE", "CUT17"], [1, "BUSONNAM", "BUSONNAE", "BUSONBIJ", "BUSONBIE", "CUT18"], [1, "BUSONNAM", "BUSONNAE", "BUSONBIJ", "BUSONBIE", "CUT18"], [1, "BUSONNAM", "BUSONNAE", "BUSONBIJ", "BUSONBIE", "CUT18"], [1, "BUSONNAM", "BUSONNAE", "BUSONBIJ", "BUSONBIE", "CUT17"], [1, "BUSONNAM", "BUSONNAE", "BUSONBIJ", "BUSONBIE", "CUT18"], [1, "BUSONNAM", "BUSONNAE", "BUSONBIJ", "BUSONBIE", "CUT18"], [1, "BUSONNAM", "BUSONNAE", "BUSONBIJ", "BUSONBIE", "CUT18"]]
  6.   set gpbio to [[["56", "SHL", 460, 255, "56J", 460, 440, "56E", 460, 440], ["97", "SHL", 460, 240, "97J", 460, 400, "97E", 460, 400], ["108", "SHL", 460, 240, "108J", 460, 400, "108E", 460, 400]], EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY]
  7.   set gcurrentnumber to 0
  8.   set gbiophotonumber to 0
  9.   set greq to "J"
  10.   set gblend.45 to 100
  11.   set gblend.46 to 100
  12.   set gblend.47 to 100
  13.   set greturn to "@::PCBK:09TURIAG"
  14. end
  15.